home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / bin / ValidateThor < prev    next >
Encoding:
AmigaDOS Script File  |  1996-11-11  |  1.7 KB  |  90 lines
  1. .key SYSTEM
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: ValidateThor 1.1 (30.10.96)
  6. ; by Eirik Nicolai Synnes <eirikns@sn.no>
  7.  
  8.  
  9. Echo "ValidateThor 1.1 (30.10.96) by Eirik Synnes <eirikns@sn.no>*N"
  10. Echo "IMPORTANT:"
  11. Echo "o Only run ValidateThor after a reboot."
  12. Echo "o For the best stability leave the system alone while validating."
  13. Echo "o Be aware that validating the databases can take a long time."
  14. Echo "o ValidateThor will perform a pack/purge after deleting corrupt messages."
  15. Echo "o Use Sushi to avoid error requesters. Sushi can be found on AmiNet.*N"
  16.  
  17.  
  18. ; Check command line arguments
  19.  
  20. If "{SYSTEM}" EQ ""
  21.     Echo "Specify a system to validate.*N"
  22.     Echo "Usage: ValidateThor *"<system name>*""
  23.     Echo "       Use ALL as <system name> to validate all systems.*N"
  24.     Skip End2
  25. EndIf
  26.  
  27. Echo "Do you want to continue? [y/N]" NOLINE
  28. Ask ""
  29.  
  30. If NOT WARN
  31.     Skip End2
  32. EndIf
  33.  
  34.  
  35. ; See if ValidateThor is already running, exit if true
  36.  
  37. GetEnv >NIL: VT_Running
  38.  
  39. If NOT WARN
  40.     Echo "ValidateThor is already running."
  41.     Skip End2
  42. EndIf
  43.  
  44. SetEnv VT_Running TRUE
  45.  
  46.  
  47. ; Find the Thor dircetory
  48.  
  49. CD `getenv Thor/ThorPath`
  50.  
  51.  
  52. ; Get rid of bbsread.library
  53.  
  54. bin/LoadBBSRead QUIT
  55. Avail >NIL: FLUSH
  56.  
  57.  
  58. ; Set the validate flag for the system
  59.  
  60. bin/BaseManager VALIDATE "{SYSTEM}"
  61.  
  62. If ERROR
  63.     Echo "Failed to set validate flag on *"{SYSTEM}*"."
  64.     Skip End
  65. Else
  66.     FailAt 21
  67.  
  68.     ; Delete corrupt messages and users
  69.     rx rexx/BBSRead/CheckDataBase.br "{SYSTEM}" DELETE
  70.     rx rexx/BBSRead/CheckUserDataBase.br "{SYSTEM}" DELETE
  71.  
  72.     ; Make sure all data files will be packed
  73.     rx rexx/BBSRead/CfgGlobal.br SET 00000040
  74.  
  75.     ; Pack the database
  76.     If "{SYSTEM}" EQ "ALL"
  77.         bin/PackBBS ALL
  78.     Else
  79.         bin/PackBBS "{SYSTEM}"
  80.     EndIf
  81. EndIf
  82.  
  83. rx rexx/BBSRead/CfgGlobal.br CLEAR 00000040
  84.  
  85. Lab End
  86.  
  87. UnSetEnv VT_Running
  88.  
  89. Lab End2
  90.